home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / label3.stk < prev    next >
Encoding:
Text File  |  1995-12-12  |  296 b   |  11 lines
  1. ;; A label widget, with a bitmap instead of text
  2. ;; We use here the fact that "wtour-lessondir" contains the path of the
  3. ;; wtour demo
  4.  
  5.  
  6. (label '.lab2 :bitmap        (string-append "@" wtour-lessondir "/../lib/iu.ridge.xbm")
  7.               :relief        "raised" 
  8.           :borderwidth 2)
  9. (pack .lab2)
  10.  
  11.